home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / nghelp.zip / NGHELP.PAS < prev    next >
Pascal/Delphi Source File  |  1994-02-27  |  869b  |  47 lines
  1. {$A+,B-,E+,F-,I+,N-,O-,R-,V-}
  2. {$UNDEF DEBUG}
  3. {$IFDEF DEBUG} {$D+,L+,S+} {$ELSE} {$D-,L-,S-} {$ENDIF}
  4. {$M 5096,25600,25600}
  5. Program NGHelp;
  6.  
  7. Uses YNSystem,Help_Var,HelpStrt,NGCL,SwapVars,Swapopup;
  8.  
  9. Begin
  10.  With Default Do
  11.   Begin
  12.    NGPath     := '';
  13.    NGName     := '';
  14.    AutoLookUp := True;
  15.    BigScreen  := False;
  16.    Color      := ColorMonitor;
  17.   End;
  18.  SearchStr := '';
  19.  
  20.  Read_CFG; {Read config}
  21.  InitVars_NG;
  22.  
  23.  Writeln(Copyright);
  24.  
  25. {$IFNDEF TSR}
  26.  KeyBoardTask;
  27. {$ELSE}
  28.  SwpPath := '';
  29.  
  30.  CheckParam;
  31.  
  32.  With TSRInfo Do
  33.   Begin
  34.    HotKey1       := LeftShift+$3B;
  35.    HotKey2       := $4C;
  36.    GraphicModeOn := False;
  37.    IDStr         := Signature;
  38.    SwapFileName  := SwpPath+'$NGHELP$.SWP';
  39.    FirstToSave   := FirstToDisk;
  40.    PRGStart      := @KeyBoardTask;
  41.   End;
  42.  
  43.  CheckError(CheckTSRInstallData);
  44.  GoTSR;
  45. {$ENDIF}
  46. End.
  47.